* lisp/net/dictionary.el (dictionary-search): Use format-prompt.

diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index b8f5018005ba5b9261930f18de31eecfa4be4fd1..d381750eb00ceead48db18136b2ae6e2c0f75797 100644 (file)
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -1150,9 +1150,7 @@ It presents the selection or word at point as default input and
 allows editing it."
   (interactive
    (list (let ((default (dictionary-search-default)))
-           (read-string (if default
-                            (format "Search word (%s): " default)
-                          "Search word: ")
+           (read-string (format-prompt "Search word" default)
                         nil 'dictionary-word-history default))
         (if current-prefix-arg
             (read-string (if dictionary-default-dictionary